
(unless (> (vector-length command-line-arguments) 0)
   (write "Usage: intersect.scm ideal-file-1 ...\n")
   (exit))

(let ((ideals (map (lambda (f) (eval (read (open-input-file f)))) (vector->list command-line-arguments)) )) 
   (write (apply intersect ideals)))
